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Figure 2 



File Name : complex_counter__vl . vhd 
Update to : 21-Jan-2004 

Designer : Yinon Levy @ Royal Design 



10 



library ieee ; 

use ieee . std__logic_l 164 . al 1 ; 
use ieee . std_logi consigned . all ; 
use ieee . s td_logic_arith . al 1 ; 
use work . Rx^package . all ; 

entity complex_counter_vl is port 

( 

ck : in std_logic 

mrstn : in std_logic 

enl : in std_logic 

count : out std_logic_vector ( 5 downto 0) 

); 

end complex__counter_vl ; 

architecture hdm of complex_counter_vl is 
signal p_count : s td_logic_vector ( 5 downto 0) ; 
begin 



•- System clock 

- Asynchronous reset 

•- Enable 

— Counter value 



count < = p__count 




rx_complex_counter : process (ck, mrstn) 

procedure reset_procedure is 
begin 

14 p_count <= (others=> ' 0') 

end reset_procedure 

begin 

RxProperties (ClkName=> " ck " , ClkPolari ty=> High, 

RstName=> "mrstn" , Rst Polarity=> Low, 
SyncMode=>False, RstProc=> " reset_procedure " ) ; 

r x statement 

RxStatement ( St atementName= > " count_statement " , Hi tEventMode= > Serial) 

HitEvent ( StatementName= > " count_st a tement " , 

HitEventName=> "count_hi t_event " ) 

Trigger (Hi tEventName= > " count_hi t_event " , 

TriggerExp=>% ##1 enl= ' 1 ' ; ## 2 % ) ; 

Rol 1 ingAct ion (HitEventName= > " count_hi t__event " , 

TimeValueAction=> % ##12 p_count <= p_count + 1 %) ; 

end process rx_complex_counter ; 
end hdm ; 
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Figure 3 



-- File Name : compl ex__counter_vl . vhd 
-- Update to : 21-Jan-2004 

-- Designer : Yinon Levy @ Royal Design 
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library ieee ; 

use ieee . std__logic_l 164 . al 1 ; 
use ieee . std_logic_un signed .all ; 
use ieee . std_logic_ar i th . al 1 ; 
--use work . Rx_package . all ; 

entity compl ex_counter__vl is port 



( 

ck 

mrstn 
enl 
count 
) ; 

end compl ex_counter_vl ; 



in std_logic 
in std_logic 
in std_logic 

out std_logic_vector (5 down to 0) 



System clock 
Asynchronous reset 
Enable 

Counter value 



architecture hdm of compl ex__counter_vl is 
signal p_count : std_logic_vector ( 5- downto 0) 
begin 

count <= p_count ; 



P_rx_complex_counter : process (ck, mrstn) 



procedure reset_procedure is 
begin 

p_count <= (others=> '0') 
end reset_procedure 



-- Handshake Rx-defined signals 
variable rd_counter_count_hi t_event_0 
variable rd_end_tr ig_count_st atement 
variable rd end exec count statement 



unsigned (3 downto 0) 
std_logic ; 
std_logic ; 



Rx Reset Procedures 



procedure rd_rst_count_statement is 
begin 

rd_end_trig_count statement := '0 1 ; 
rd_end_exec_count_statement : = ' 0 1 ; 
rd_counter_count_hi t_event_0 := {others=> '0'); 
end r d_r s t_coun t_s t a t emen t ; 



-- Statement Name: count_statement 
-- Statement Mode: Parallel 



Figure 4a 



-- Hit Event Name: count hi t_event 

Trigger Expression: ##1 enl= ' 1 ' ## 2 



procedure count_hi t__event_evaluate is 



if begin 



( rd_counter_count_hi t_event_0 = 0) then 
]02 ' if (enl= , l') then 

rd_counter_count_hit_event_0 := rd_counter_count_hit_event_0 + 1; 
end if ; 

elsif ( rd__counter_count_hit__event_0< = 2 ) then 

rd_counter_count_hi t_event_0 := rd_counter_count_hi t_event_0 + 1; 

if (rd_counter_count_hit_event_0=3) then 

rd_counter_count__hit_event_0 := (others=> ' 0'); 
r d_end_t r ig^coun t_s t a t emen t := ' 1'; 

end i f ; 
end if; 

end count_hit_event_evaluate ; 

procedure count_hit_event_execute is 
begin 

/ if (rd_counter__count_hit_event__0< = ll ) then 

]Q4 rd_counter_count_hit_event_0 := rd_counter_count_hi t_event_0 + 1; 

p_count <= p_count+l; 
end if; 

if (rd_counter_count_hit_event__0 = 12) then 

r d_end_exe c_coun t_s t a t emen t := ' 1'; 
end i f ; 

end count_hit_event_execute ; 

procedure count_hit_event_act ivate is 
^ begin 

if (rd_end_trig__count_statement = '0') then 
106 count_hit_event_evaluate ; 

end i f ; 

if (rd_end_trig_count_statement = '1' 

and rd_end_exec_count_statement = '0') then 
count_hi t_event_execute ; 
end i f ; 

if (rd_end_exec_count_statement = '1') then 

rd_rst_count_statement ; 
end if; . - 

end count hit event activate ; 



-- Rx Statements Activation Process 



begin 

if (mrstn = '0') then 
reset_procedure ; 
^ rd_rst_count_statement ; 

108 elsif (rising_edge (ck) ) then 

count_hit__event_act ivate ; 
end i f ; 
end process ; 
end hdm ; 
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